home *** CD-ROM | disk | FTP | other *** search
/ CD Classic 39 / CD CLASSIC #39 (1998).iso / EMPRESA / visio / Vistdstd / Install / Data.Z / Statline.BAS < prev    next >
BASIC Source File  |  1996-09-04  |  1KB  |  33 lines
  1. Attribute VB_Name = "STATLINE"
  2. ' -----------------------------------------------------------------------------
  3. ' Copyright (C) 1993-1996 Visio Corporation. All rights reserved.
  4. '
  5. ' You have a royalty-free right to use, modify, reproduce and distribute
  6. ' the Sample Application Files (and/or any modified version) in any way
  7. ' you find useful, provided that you agree that Visio has no warranty,
  8. ' obligations or liability for any Sample Application Files.
  9. ' -----------------------------------------------------------------------------
  10.  
  11. Option Explicit                                 '-- All Variables Explicit
  12.  
  13. Sub ClearStatusLine()
  14. '------------------------------------
  15. '--- ClearStatusLine ----------------
  16. '--
  17. '--   Clear the status line.
  18. '--
  19.  
  20.   frmMainWindow.ctlStatusLine.Caption = "Ready"     '-- Clear Status Line Text
  21. End Sub
  22.  
  23. Sub StatusLineMsg(strMessage As String)
  24. '------------------------------------
  25. '--- StatusLineMsg ------------------
  26. '--
  27. '--   Prints a message on the status line.
  28. '--
  29.  
  30.   frmMainWindow.ctlStatusLine.Caption = strMessage
  31. End Sub
  32.  
  33.